.TITLE	DRGSS
	.IDENT	/04.02/
 
;
; Copyright (c) 1995-1999 by Mentec, Inc., U.S.A.
; All rights reserved
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
; VERSION 04
;
; D. N. CUTLER 31-AUG-73
;
; PREVIOUSLY MODIFIED BY:
;
;	D. N. CUTLER
;	J. E. PROVINO 
;
;
; MODIFIED FOR RSX-11M-PLUS V4.0 BY:
;
;	L. B. MCCULLEY	23-MAR-87	4.01
;
;		LBM050 - SUPPORT PROCESSORS WITHOUT SWITCH REGISTERS
;
;	D. CARROLL	11-JUN-93	4.02
;
;		DC121 - CORRECT LBM050 TO ALLOW FOR A COMMON SWR ON 
;			AN MP SYSTEM
;
;
; MACRO LIBRARY CALLS
;

	.MCALL	HWDDF$
	HWDDF$			;DEFINE HARDWARE REGISTERS

;+
; **-$DRGSS-GET SENSE SWITCHES
;
; THIS DIRECTIVE INSTRUCTS THE SYSTEM TO STORE THE CONTENTS OF THE CONSOLE
; SWITCH REGISTER IN THE ISSUING TASK'S DIRECTIVE STATUS WORD.
;
; DPB FORMAT:
;
;	WD. 00 -- DIC(125.),DPB SIZE(1.).
;
; INPUTS:
;
;	R2=ADDRESS OF THE TASK STATUS WORD OF THE CURRENT TASK.
;	R3=ADDRESS OF THE LAST WORD IN THE DPB+2.
;	R4=ADDRESS OF THE HEADER OF THE CURRENT TASK.
;	R5=ADDRESS OF THE TCB OF THE CURRENT TASK.
;
; OUTPUTS: (DIRECTIVE STATUS AND PS RETURNED TO TASK)
;
;	C=0 WITH A DIRECTIVE STATUS EQUAL TO THE CONTENTS OF THE
;		CONSOLE SWITCH REGISTER.
;-


	.IF DF	G$$TSS

$DRGSS::.IF	NDF,M$$PRO		; MULTIPROCESSOR SUPPORT
	BIT	#HF.SWR,$HFMSK		; HARDWARE SWITCH REGISTER PRESENT?
	BEQ	1$			; NO, DON'T TRY TO READ IT
	MOV	SWR,$SWR		; YES, READ IT INTO SYSCM STORAGE
	.ENDC	;NDF,M$$PRO		; MULTIPROCESSOR SUPPORT
1$:	MOV	$SWR,2(SP)		; RETURN VALUE FROM SYSCM
	RETURN

	.ENDC


	.END